home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1996 July / Designer's Club 1996 July.iso / mac / Idea Source / Blues.DIR / 00093.ls < prev    next >
Encoding:
Text File  |  1996-05-20  |  279 b   |  15 lines
  1. on mouseUp
  2.   sound playFile 2, "blip"
  3.   if soundBusy(1) then
  4.     sound fadeOut 1, 2 * 60
  5.     repeat while the volume of sound 1 < 0
  6.       go(the frame)
  7.     end repeat
  8.   end if
  9.   if the volume of sound 1 < 0 then
  10.     sound stop 1
  11.   end if
  12.   puppetSprite(4, 0)
  13.   go(1, "main")
  14. end
  15.